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MODULE GETTIM ( NS LEE 
BEGIN 


' 
RRR ARAAREAARAA AERA AAAAEAAAAAAERAAAAAEAAAATE AAA EAAAAAAAAAAAAARARAERERAATEREE 


'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT CORPORATION, MAYHAR. MASSACHUSETTS. 

is ALL RIGHTS RESERVED 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTH ERWI SE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
ie TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
it AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBIL 
is SOFTWARE ON EQUIPMENT WHICH IS N 
i 

Cs ssoensbibennaidiesisita inne eniata dasa tlieiteleeanaitadetieaiaaatinennamentaiibaeiainiliniet 


ITY FOR THE USE OR RELIABILITY OF ITS 


Y 
NOT SUPPLIED BY DIGITAL. 


eaeenneneneneneeenenenneeeenananne 


lee 

' 

FACILITY: F11ACP Structure Level 1 
i ABSTRACT: 


This routine builds a date/time string in the format for file headers 
in the indicated buffer. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 2-May-1977 16:07 
i MODIFIED BY: 
V02-001 MLJ0029 Martin L feck. 11-Jul-1981 23:49 


fa zero uadvord 4 upplied the e result is binar Zoran. 
which signifies an unspec ied time, rather than ‘17NOV58'. 


A0100 ACG0001 Andrew C. Goldstein, 10-Oct-1978 20:01 
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H Previous revision history moved to F11A.REV 
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952-000 1b-Se0-1984 9:90:95 DISKSUMSMASTERSCF1iA.SRCIGETTIN.832; 17" (23 


; $8 } GLOBAL ROUTINE GET_TIME (BUFFER, TIME) : NOVALUE = 

; 1 it 

° ! 

$ ’ } H FUNCTIONAL DESCRIPTION: 

5 ie 1! This royt ine builds a date/time string in the format for file headers 
: 1! in the indicated buffer. If a time is supplied, it is used; if not, 
3 a } } the current time is used. 

3 rg 1 ! CALLING SEQUENCE: 

3 f $4 1 ; GET_TIME (ARG1, ARG2) 

$ 8 3 1 ! INPUT PARAMETERS: 

3 0 935 1! NONE 

3 1 94 1! 

3 ¢ 95 1 ! IMPLICIT INPUTS: 

3 38 : : system time of day 

; «85 98 1 § OUTPUT PARAMETERS: 

3 Hy 399 1! ARG1: address of buffer to receive date/time string 

3 44 4 } ARG2: optional 64 bit date/time to convert 

3 89 8 1 ! IMPLICIT OUTPUTS: 

3 90 03; 1! NONE 

$ 91 Be8e 1! 

3 3g 05 1 ! ROUTINE VALUE: 

: = 0406 1! NONE 

; 94 07 1! 

3 95 08 1 ! SIDE EFFECTS: 

; 409 1! NONE 

3 97 10 1! 

3 98 0411 1 !-- 

; 99 tig 1 

: 100 41 BEGIN 

: 101 414 

3 3 0415 LITERAL ' entries in the numeric date/time buffer 
s 10 16 YEAR = 0, 

: 1046 41 MONTH = 1, 

3; 105 18 DAY = ¢- 

; 198 1 HOUR = 3, 

; 10 0 MINUTE = 4, 

3 198 i SECOND = 5; 

: 198 § MAP 

: +f 3 BUFFER : REF VECTOR C,BYTE]; ! date/time buffer arg 

$ 118 $ LOCAL 

: 114 TIMEADDR : REF VECTOR, ' address of 64 bit date/time 

: 115 3 ! Guney to receive string Length 

: 116 TIMBUF : VECTOR (7 WORD], ! buffer to receive numeric format time 
3 i : BUF _DESCRIPT : VECTOR C24; ! descriptor to pass buffer to FAO 
3 119 $ BIND 

: 120 ! month name table 

3 121 MONTH_TABLE = UPLIT BYTE 

: 122 5 ("JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC ‘) 
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1b-Bep-19Re 01:07:07 vaNedt Bliee=s2 4.0074 


i os FAO f t stri 
orma rin 

5 8 FORMAT = DESCRIPTOR ("!37W!ADIa(e7W) 8); 9 
§ 4 EXTERNAL ROUTINE 
3 4 SYS TIM : ADDRESSING MODE neg ony: 

4 ayste me in numeric format 

4 SYSSFAO : ADDRESSING _nOvE (ABSOLUTE); 
: ' formatted ASCII output 

$ execution of this routine simply involves getti "9 the current date and time 
5 ! in numeric format from the system, and then call ng FAO to build the a 
e 


1 
1 
: date/time string in the buffer. The. serinn is of the form ‘‘DDMMMYYHHMMSS”’ 


Pre} = FIISS_CREDATE + FI1SS_CRETIME; 
PTC1) = .BUFFER 
0; 


SS * 
ES 


DDR = .TIME; 


I 
EA 
f the input time is zero, return binary zercs in the output buffer, 
hich is the ODS-1 representation for an unspecified time. 


if TIMEADDRCOD EQL 0 AND .TIMEADDRC1] EQL 0 


AOAQCOuunU 


BEGIN 
CHSFILL(O, FIISS_CREDATE + FIISS_CRETIME, .BUFFER); 
RETURN; 


END; 
SYSSNUMTIM (TIMBUF, .TIMEADDR); 
SYSSFAO (FORMAT, DUMMY, BUF _DESCRIPT, 
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uF DAY), 
3, MONTH TABLEC.TIMBUFCMONTH)-1), 
+ INBUF TEAR MOD 100, 
: TIMBUF 
> TIMBUF RINUTED, 
Ht ; TIMBUF SECOND 
HY END; ! end of routine GET_TIME 


-TITLE GETTIM 
-IDENT \V04-000\ 


-PSECT SCODES,NOWRT,2 


$e 4 $6 $8 if yh 3h 80000 P.AAA: .ASCII \JAN FEB MAR APR MAY JUN JUL AUG SEP OCT \ ; 
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485 1 END 
486 0 ELUDOM 
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NOV DEC \ 
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cEITIM, 1$-$e0 
PSECT SUMMARY 


Name Bytes Attribu 
SCODES 188 NOVEC.NOWRT, RD, EXE,NOS 


Library Statistics 


ooo eae = b Geman aae 


Symbol 
File Total Loaded Percent 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 3 0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETTIM/OBJ=0BU$: 


oy 116 code + 72 data bytes 

| Elaseed Tinee 00:20.4 

: Lines/CPU Min: 4527 

F penencedre-Sras 137 8 
80 pages 


aeiletion, 
; Compilation Complete 


=1984 01: VAX-11 Bliss-32 V4.0~742 6 
=1984 13:99 a DISKSVMSMASTER:CF11A.SRCJGETTIM.B32;1 he: (2) 
tes 

HR, LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
1000 00:01.9 


GETTIM MSRC$:GETTIM/UPDATE=(ENHS$:GETTIM) 
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